Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / naffga1a / form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-10-18 | 39.5 KB | 1,395 lines

VERSION 5.00 Begin VB.Form NaffGame BackColor = &H00C0C0C0& Caption = "Naff Game" ClientHeight = 9930 ClientLeft = 2910 ClientTop = 1200 ClientWidth = 10860 LinkTopic = "Form1" ScaleHeight = 9930 ScaleWidth = 10860 WindowState = 2 'Maximized Begin VB.CommandButton cmdUp Caption = "Up" Height = 975 Left = 9840 TabIndex = 11 Top = 1080 Width = 975 End Begin VB.CommandButton cmdDown Caption = "Down" Height = 975 Left = 9840 TabIndex = 10 Top = 8760 Width = 975 End Begin VB.CommandButton cmdNext Caption = "Next Turn" Height = 375 Left = 2160 TabIndex = 0 Top = 600 Width = 5535 End Begin VB.Image Image1 Height = 960 Index = 89 Left = 8760 Picture = "Form1.frx":0000 Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 88 Left = 7800 Picture = "Form1.frx":3042 Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 87 Left = 6840 Picture = "Form1.frx":6084 Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 86 Left = 5880 Picture = "Form1.frx":90C6 Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 85 Left = 4920 Picture = "Form1.frx":C108 Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 84 Left = 3960 Picture = "Form1.frx":F14A Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 83 Left = 3000 Picture = "Form1.frx":1218C Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 82 Left = 2040 Picture = "Form1.frx":151CE Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 81 Left = 1080 Picture = "Form1.frx":18210 Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 80 Left = 120 Picture = "Form1.frx":1B252 Top = 8760 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 79 Left = 8760 Picture = "Form1.frx":1E294 Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 78 Left = 7800 Picture = "Form1.frx":212D6 Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 77 Left = 6840 Picture = "Form1.frx":24318 Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 76 Left = 5880 Picture = "Form1.frx":2735A Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 75 Left = 4920 Picture = "Form1.frx":2A39C Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 74 Left = 3960 Picture = "Form1.frx":2D3DE Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 73 Left = 3000 Picture = "Form1.frx":30420 Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 72 Left = 2040 Picture = "Form1.frx":33462 Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 71 Left = 1080 Picture = "Form1.frx":364A4 Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 70 Left = 120 Picture = "Form1.frx":394E6 Top = 7800 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 69 Left = 8760 Picture = "Form1.frx":3C528 Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 68 Left = 7800 Picture = "Form1.frx":3F56A Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 67 Left = 6840 Picture = "Form1.frx":425AC Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 66 Left = 5880 Picture = "Form1.frx":455EE Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 65 Left = 4920 Picture = "Form1.frx":48630 Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 64 Left = 3960 Picture = "Form1.frx":4B672 Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 63 Left = 3000 Picture = "Form1.frx":4E6B4 Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 62 Left = 2040 Picture = "Form1.frx":516F6 Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 61 Left = 1080 Picture = "Form1.frx":54738 Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 60 Left = 120 Picture = "Form1.frx":5777A Top = 6840 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 59 Left = 8760 Picture = "Form1.frx":5A7BC Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 58 Left = 7800 Picture = "Form1.frx":5D7FE Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 57 Left = 6840 Picture = "Form1.frx":60840 Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 56 Left = 5880 Picture = "Form1.frx":63882 Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 55 Left = 4920 Picture = "Form1.frx":668C4 Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 54 Left = 3960 Picture = "Form1.frx":69906 Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 53 Left = 3000 Picture = "Form1.frx":6C948 Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 52 Left = 2040 Picture = "Form1.frx":6F98A Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 51 Left = 1080 Picture = "Form1.frx":729CC Top = 5880 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 50 Left = 120 Picture = "Form1.frx":75A0E Top = 5880 Width = 960 End Begin VB.Image blank Height = 960 Left = 9000 Picture = "Form1.frx":78A50 Top = 1080 Visible = 0 'False Width = 960 End Begin VB.Label turn Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "EMINENT UK" Height = 255 Left = 3120 TabIndex = 9 Top = 240 Width = 3615 End Begin VB.Shape box BorderStyle = 0 'Transparent FillColor = &H0080FF80& FillStyle = 0 'Solid Height = 495 Left = 2160 Top = 120 Width = 5535 End Begin VB.Label name2 BackStyle = 0 'Transparent Caption = "BLUE" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 7920 TabIndex = 8 Top = 360 Width = 1695 End Begin VB.Label points2 BackStyle = 0 'Transparent Caption = "0" Height = 255 Left = 8520 TabIndex = 7 Top = 720 Width = 1455 End Begin VB.Label Label3 BackStyle = 0 'Transparent Caption = "Points:" Height = 255 Left = 7920 TabIndex = 6 Top = 720 Width = 1575 End Begin VB.Label Label2 BackStyle = 0 'Transparent Caption = "PLAYER 2:" Height = 255 Left = 7920 TabIndex = 5 Top = 120 Width = 1095 End Begin VB.Label name1 BackStyle = 0 'Transparent Caption = "RED" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 255 Left = 240 TabIndex = 4 Top = 360 Width = 1695 End Begin VB.Label points1 BackStyle = 0 'Transparent Caption = "0" Height = 255 Left = 840 TabIndex = 3 Top = 720 Width = 1215 End Begin VB.Label label BackStyle = 0 'Transparent Caption = "Points:" Height = 255 Left = 240 TabIndex = 2 Top = 720 Width = 1695 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "PLAYER 1:" Height = 255 Left = 240 TabIndex = 1 Top = 120 Width = 1095 End Begin VB.Image rocx Height = 960 Left = 9000 Picture = "Form1.frx":7BA92 Top = 960 Visible = 0 'False Width = 960 End Begin VB.Image scix Height = 960 Left = 9000 Picture = "Form1.frx":7EAD4 Top = 840 Visible = 0 'False Width = 960 End Begin VB.Image papx Height = 960 Left = 9000 Picture = "Form1.frx":81B16 Top = 720 Visible = 0 'False Width = 960 End Begin VB.Image rock Height = 960 Left = 9000 Picture = "Form1.frx":84B58 Top = 600 Visible = 0 'False Width = 960 End Begin VB.Image scis Height = 960 Left = 9000 Picture = "Form1.frx":87B9A Top = 480 Visible = 0 'False Width = 960 End Begin VB.Image pape Height = 960 Left = 9000 Picture = "Form1.frx":8ABDC Top = 360 Visible = 0 'False Width = 960 End Begin VB.Image red Height = 960 Left = 9000 Picture = "Form1.frx":8DC1E Top = 240 Visible = 0 'False Width = 960 End Begin VB.Image blu Height = 960 Left = 9000 Picture = "Form1.frx":90C60 Top = 120 Visible = 0 'False Width = 960 End Begin VB.Image Image1 Height = 960 Index = 49 Left = 8760 Picture = "Form1.frx":93CA2 Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 48 Left = 7800 Picture = "Form1.frx":96CE4 Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 47 Left = 6840 Picture = "Form1.frx":99D26 Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 46 Left = 5880 Picture = "Form1.frx":9CD68 Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 45 Left = 4920 Picture = "Form1.frx":9FDAA Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 44 Left = 3960 Picture = "Form1.frx":A2DEC Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 43 Left = 3000 Picture = "Form1.frx":A5E2E Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 42 Left = 2040 Picture = "Form1.frx":A8E70 Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 41 Left = 1080 Picture = "Form1.frx":ABEB2 Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 40 Left = 120 Picture = "Form1.frx":AEEF4 Top = 4920 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 39 Left = 8760 Picture = "Form1.frx":B1F36 Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 38 Left = 7800 Picture = "Form1.frx":B4F78 Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 37 Left = 6840 Picture = "Form1.frx":B7FBA Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 36 Left = 5880 Picture = "Form1.frx":BAFFC Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 35 Left = 4920 Picture = "Form1.frx":BE03E Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 34 Left = 3960 Picture = "Form1.frx":C1080 Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 33 Left = 3000 Picture = "Form1.frx":C40C2 Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 32 Left = 2040 Picture = "Form1.frx":C7104 Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 31 Left = 1080 Picture = "Form1.frx":CA146 Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 30 Left = 120 Picture = "Form1.frx":CD188 Top = 3960 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 29 Left = 8760 Picture = "Form1.frx":D01CA Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 28 Left = 7800 Picture = "Form1.frx":D320C Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 27 Left = 6840 Picture = "Form1.frx":D624E Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 26 Left = 5880 Picture = "Form1.frx":D9290 Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 25 Left = 4920 Picture = "Form1.frx":DC2D2 Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 24 Left = 3960 Picture = "Form1.frx":DF314 Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 23 Left = 3000 Picture = "Form1.frx":E2356 Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 22 Left = 2040 Picture = "Form1.frx":E5398 Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 21 Left = 1080 Picture = "Form1.frx":E83DA Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 20 Left = 120 Picture = "Form1.frx":EB41C Top = 3000 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 19 Left = 8760 Picture = "Form1.frx":EE45E Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 18 Left = 7800 Picture = "Form1.frx":F14A0 Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 17 Left = 6840 Picture = "Form1.frx":F44E2 Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 16 Left = 5880 Picture = "Form1.frx":F7524 Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 15 Left = 4920 Picture = "Form1.frx":FA566 Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 14 Left = 3960 Picture = "Form1.frx":FD5A8 Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 13 Left = 3000 Picture = "Form1.frx":1005EA Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 12 Left = 2040 Picture = "Form1.frx":10362C Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 11 Left = 1080 Picture = "Form1.frx":10666E Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 10 Left = 120 Picture = "Form1.frx":1096B0 Top = 2040 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 9 Left = 8760 Picture = "Form1.frx":10C6F2 Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 8 Left = 7800 Picture = "Form1.frx":10F734 Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 7 Left = 6840 Picture = "Form1.frx":112776 Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 6 Left = 5880 Picture = "Form1.frx":1157B8 Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 5 Left = 4920 Picture = "Form1.frx":1187FA Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 4 Left = 3960 Picture = "Form1.frx":11B83C Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 3 Left = 3000 Picture = "Form1.frx":11E87E Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 2 Left = 2040 Picture = "Form1.frx":1218C0 Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 1 Left = 1080 Picture = "Form1.frx":124902 Top = 1080 Width = 960 End Begin VB.Image Image1 Height = 960 Index = 0 Left = 120 Picture = "Form1.frx":127944 Top = 1080 Width = 960 End Begin VB.Shape Shape1 BorderStyle = 0 'Transparent FillColor = &H008080FF& FillStyle = 0 'Solid Height = 855 Left = 120 Top = 120 Width = 1935 End Begin VB.Shape Shape2 BorderStyle = 0 'Transparent FillColor = &H00FFFF80& FillStyle = 0 'Solid Height = 855 Left = 7800 Top = 120 Width = 1935 End Begin VB.Image PT Height = 960 Left = 9000 Picture = "Form1.frx":12A986 Top = 0 Visible = 0 'False Width = 960 End Begin VB.Menu mnuGame Caption = "&Game" Begin VB.Menu mnuReset Caption = "New" Shortcut = {F2} End Begin VB.Menu mnuRAN Caption = "&Random" Shortcut = ^R End End Attribute VB_Name = "NaffGame" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False 'You might find this code a bit messy. %-) Sorry. It works for me! :D '-RAN 'rnicol@khi-ro.co.uk Dim gimp(89) Dim p1 Dim p2 Dim go Dim Curr Dim ini Dim def1 Dim def2 Dim skin Dim gone Dim st Dim mgone Private Sub cmdUp_Click() If mgone = True Then Exit Sub mgone = True Dim pimp(89) For i = 0 To 9 If gimp(i) = "scix" Then pimp(i + 80) = "scix" If gimp(i) = "rocx" Then pimp(i + 80) = "rocx" If gimp(i) = "papx" Then pimp(i + 80) = "papx" If gimp(i) = "scis" Then pimp(i + 80) = "scis" If gimp(i) = "rock" Then pimp(i + 80) = "rock" If gimp(i) = "pape" Then pimp(i + 80) = "pape" If gimp(i) = "blank" Then pimp(i + 80) = "blank" If gimp(i) = "red" Then pimp(i + 80) = "red" If gimp(i) = "blu" Then pimp(i + 80) = "blu" Next i For i = 10 To 89 If gimp(i) = "scix" Then pimp(i - 10) = "scix" If gimp(i) = "rocx" Then pimp(i - 10) = "rocx" If gimp(i) = "papx" Then pimp(i - 10) = "papx" If gimp(i) = "scis" Then pimp(i - 10) = "scis" If gimp(i) = "rock" Then pimp(i - 10) = "rock" If gimp(i) = "pape" Then pimp(i - 10) = "pape" If gimp(i) = "blank" Then pimp(i - 10) = "blank" If gimp(i) = "red" Then pimp(i - 10) = "red" If gimp(i) = "blu" Then pimp(i - 10) = "blu" Next i For i = 0 To 89 gimp(i) = pimp(i) Next i Updateboard UpdateScores st = True gone = True cmdNext_Click End Sub Private Sub cmdDown_Click() If mgone = True Then Exit Sub mgone = True Dim pimp(89) For i = 80 To 89 If gimp(i) = "scix" Then pimp(i - 80) = "scix" If gimp(i) = "rocx" Then pimp(i - 80) = "rocx" If gimp(i) = "papx" Then pimp(i - 80) = "papx" If gimp(i) = "scis" Then pimp(i - 80) = "scis" If gimp(i) = "rock" Then pimp(i - 80) = "rock" If gimp(i) = "pape" Then pimp(i - 80) = "pape" If gimp(i) = "blank" Then pimp(i - 80) = "blank" If gimp(i) = "red" Then pimp(i - 80) = "red" If gimp(i) = "blu" Then pimp(i - 80) = "blu" Next i For i = 0 To 79 If gimp(i) = "scix" Then pimp(i + 10) = "scix" If gimp(i) = "rocx" Then pimp(i + 10) = "rocx" If gimp(i) = "papx" Then pimp(i + 10) = "papx" If gimp(i) = "scis" Then pimp(i + 10) = "scis" If gimp(i) = "rock" Then pimp(i + 10) = "rock" If gimp(i) = "pape" Then pimp(i + 10) = "pape" If gimp(i) = "blank" Then pimp(i + 10) = "blank" If gimp(i) = "red" Then pimp(i + 10) = "red" If gimp(i) = "blu" Then pimp(i + 10) = "blu" Next i For i = 0 To 89 gimp(i) = pimp(i) Next i Updateboard UpdateScores gone = True st = True cmdNext_Click End Sub Private Sub cmdNext_Click() If gone = False Then Exit Sub For i = 0 To 89 If gimp(i) = "scix" Then gimp(i) = "scis" If gimp(i) = "rocx" Then gimp(i) = "rock" If gimp(i) = "papx" Then gimp(i) = "pape" Next i Updateboard Dim stay stay = False If st = True Then stay = True st = False For i = 0 To 89 Dim a1 Dim a2 a1 = False a2 = False If i > 0 And i < 89 Then a1 = True If i > 9 And i < 80 Then a2 = True If gimp(i) = "pape" Then If a1 = True Then If gimp(i - 1) = "scis" And gimp(i + 1) = "scis" Then If go = "RED" Then gimp(i) = "red": p1 = p1 + 1 If go = "BLUE" Then gimp(i) = "blu": p2 = p2 + 1 stay = True mgone = False End If End If If a2 = True Then If gimp(i - 10) = "scis" And gimp(i + 10) = "scis" Then If go = "RED" Then gimp(i) = "red": p1 = p1 + 1 If go = "BLUE" Then gimp(i) = "blu": p2 = p2 + 1 stay = True mgone = False End If End If End If If gimp(i) = "scis" Then If a1 = True Then If gimp(i - 1) = "rock" And gimp(i + 1) = "rock" Then If go = "RED" Then gimp(i) = "red": p1 = p1 + 1 If go = "BLUE" Then gimp(i) = "blu": p2 = p2 + 1 stay = True mgone = False End If End If If a2 = True Then If gimp(i - 10) = "rock" And gimp(i + 10) = "rock" Then If go = "RED" Then gimp(i) = "red": p1 = p1 + 1 If go = "BLUE" Then gimp(i) = "blu": p2 = p2 + 1 stay = True mgone = False End If End If End If If gimp(i) = "rock" Then If a1 = True Then If gimp(i - 1) = "pape" And gimp(i + 1) = "pape" Then If go = "RED" Then gimp(i) = "red": p1 = p1 + 1 If go = "BLUE" Then gimp(i) = "blu": p2 = p2 + 1 stay = True mgone = False End If End If If a2 = True Then If gimp(i - 10) = "pape" And gimp(i + 10) = "pape" Then If go = "RED" Then gimp(i) = "red": p1 = p1 + 1 If go = "BLUE" Then gimp(i) = "blu": p2 = p2 + 1 mgone = False stay = True End If End If End If Next i Updateboard UpdateScores If stay = False Then mgone = False If go = "RED" Then P2Turn Else P1Turn End If End If gone = False Curr = "X" End Sub Private Sub Command1_Click() End Sub Private Sub mnuReset_Click() p1 = 0 p2 = 0 UpdateScores Clearboard gone = False P1Turn End Sub Private Sub mnuRAN_Click() gone = False P1Turn p1 = 0 p2 = 0 UpdateScores Clearboard For i = 0 To 89 Randomize RAN = Int((9 * Rnd) + 1) ' Generate random value between 1 and 6. If RAN = 1 Then gimp(i) = "pape" If RAN = 2 Then gimp(i) = "scis" If RAN = 3 Then gimp(i) = "rock" Next i For i = 0 To 89 Dim a1 Dim a2 Dim stay stay = False a1 = False a2 = False If i > 0 And i < 89 Then a1 = True If i > 9 And i < 80 Then a2 = True If gimp(i) = "pape" Then If a1 = True Then If gimp(i - 1) = "scis" And gimp(i + 1) = "scis" Then gimp(i) = "blank" End If End If If a2 = True Then If gimp(i - 10) = "scis" And gimp(i + 10) = "scis" Then gimp(i) = "blank" End If End If End If If gimp(i) = "scis" Then If a1 = True Then If gimp(i - 1) = "rock" And gimp(i + 1) = "rock" Then gimp(i) = "blank" End If End If If a2 = True Then If gimp(i - 10) = "rock" And gimp(i + 10) = "rock" Then gimp(i) = "blank" End If End If End If If gimp(i) = "rock" Then If a1 = True Then If gimp(i - 1) = "pape" And gimp(i + 1) = "pape" Then gimp(i) = "blank" End If End If If a2 = True Then If gimp(i - 10) = "pape" And gimp(i + 10) = "pape" Then gimp(i) = "blank" End If End If End If Next i Updateboard End Sub Private Sub Form_Load() mgone = False gone = False Open (App.Path & "\sets.ini") For Input As #1 ini = Input$(LOF(1), #1) Dim p1name Dim p2name p1pos = InStr(1, ini, "Player1:", 1) + 7 p2pos = InStr(1, ini, "Player2:", 1) + 7 p1end = InStr(1, ini, ":Player1", 1) - 1 p2end = InStr(1, ini, ":Player2", 1) - 1 skinpos = InStr(1, ini, "GFX:", 1) + 3 skinend = InStr(1, ini, ":GFX", 1) - 1 skinx = Left(ini, skinend) skinx = Trim(Right(skinx, Len(skinx) - skinpos)) If skinx <> "" Then skin = App.Path & "\" & skinx If skin <> "" Then Dim objPic As Picture Set objPic = LoadPicture(skin & "\scix.bmp") scix.Picture = objPic Set objPic = LoadPicture(skin & "\scis.bmp") scis.Picture = objPic Set objPic = LoadPicture(skin & "\rocx.bmp") rocx.Picture = objPic Set objPic = LoadPicture(skin & "\rock.bmp") rock.Picture = objPic Set objPic = LoadPicture(skin & "\papx.bmp") papx.Picture = objPic Set objPic = LoadPicture(skin & "\pape.bmp") pape.Picture = objPic Set objPic = LoadPicture(skin & "\blank.bmp") blank.Picture = objPic Set objPic = LoadPicture(skin & "\blu.bmp") blu.Picture = objPic Set objPic = LoadPicture(skin & "\red.bmp") red.Picture = objPic End If p1name = Left(ini, p1end) p2name = Left(ini, p2end) p1name = Right(p1name, Len(p1name) - p1pos) p2name = Right(p2name, Len(p2name) - p2pos) p1name = Trim(p1name) p2name = Trim(p2name) def1 = p1name def2 = p2name If p1name = "Peter Thomas" Then name1.Caption = "SATAN" name1.Caption = p1name End If If p2name = "Peter Thomas" Then name2.Caption = "SATAN" name2.Caption = p2name End If Clearboard P1Turn Curr = "X" gone = False End Sub Private Sub Clearboard() p1 = 0 p2 = 0 UpdateScores For i = 0 To 89 gimp(i) = "blank" Next i Updateboard End Sub Private Sub Updateboard() For i = 0 To 89 If gimp(i) = "blank" Then Image1(i).Picture = blank.Picture If gimp(i) = "red" Then Image1(i).Picture = red.Picture If gimp(i) = "blu" Then Image1(i).Picture = blu.Picture If gimp(i) = "scis" Then Image1(i).Picture = scis.Picture If gimp(i) = "rock" Then Image1(i).Picture = rock.Picture If gimp(i) = "pape" Then Image1(i).Picture = pape.Picture If gimp(i) = "scix" Then Image1(i).Picture = scix.Picture If gimp(i) = "rocx" Then Image1(i).Picture = rocx.Picture If gimp(i) = "papx" Then Image1(i).Picture = papx.Picture Next i End Sub Private Sub P1Turn() box.FillColor = &H8080FF turn.Caption = name1.Caption & "'s turn" go = "RED" Curr = "X" End Sub Private Sub P2Turn() box.FillColor = &HFFFF80 turn.Caption = name2.Caption & "'s turn" go = "BLUE" Curr = "X" End Sub Private Sub UpdateScores() points1.Caption = p1 points2.Caption = p2 End Sub Private Sub name1_Click() Dim message, title, p1name message = "Enter your name, Player 1:" title = "Name" p1name = InputBox(message, title, def1) If p1name = "Peter Thomas" Then name1.Caption = "GAMESHOWHOST" name2.Caption = "SANJAY" blank.Picture = PT.Picture Updateboard name1.Caption = p1name End If If go = "RED" Then turn.Caption = name1.Caption & "'s turn" If name1.Caption = "" Then name1.Caption = def1 End Sub Private Sub name2_Click() Dim message, title, p2name message = "Enter your name, Player 2:" title = "Name" p2name = InputBox(message, title, def2) If p2name = "Peter Thomas" Then name2.Caption = "GAMESHOWHOST" name1.Caption = "SANJAY" blank.Picture = PT.Picture Updateboard name2.Caption = p2name End If If go = "BLUE" Then turn.Caption = name2.Caption & "'s turn" If name2.Caption = "" Then name2.Caption = def2 End Sub Private Sub Image1_Click(Index As Integer) If gimp(Index) = "red" Then Exit Sub If gimp(Index) = "blu" Then Exit Sub If gimp(Index) = "scis" Then Exit Sub If gimp(Index) = "rock" Then Exit Sub If gimp(Index) = "pape" Then Exit Sub If Curr = "X" Then Curr = Index If Curr <> Index Then Exit Sub Dim a a = 1 If a = 1 Then If gimp(Index) = "blank" Then gimp(Index) = "scix" a = 0 gone = True End If End If If a = 1 Then If gimp(Index) = "scix" Then gimp(Index) = "rocx" a = 0 gone = True End If End If If a = 1 Then If gimp(Index) = "rocx" Then gimp(Index) = "papx" a = 0 gone = True End If End If If a = 1 Then If gimp(Index) = "papx" Then gimp(Index) = "blank" Curr = "X" a = 0 gone = False End If End If a = 0 Updateboard End Sub